home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / bitary.d < prev    next >
Text File  |  1996-02-04  |  730b  |  51 lines
  1.  
  2.  
  3.  
  4. /*                                      
  5.  *
  6.  *      Copyright (c) 1993-1996 Algorithms Corporation
  7.  *      3020 Liberty Hills Drive
  8.  *      Franklin, TN 37067
  9.  *
  10.  *      ALL RIGHTS RESERVED.
  11.  *
  12.  *      
  13.  *      
  14.  */
  15.  
  16.  
  17.  
  18. #include "array1.h"
  19.  
  20. defclass  BitArray  :  Array;
  21.  
  22.  
  23.  
  24. cvmeth    vNew(unsigned rank, ...)
  25. {
  26.     static    gNewArray_t    cnew = NULL;
  27.     MAKE_REST(rank);
  28.  
  29.     if (!cnew)
  30.         cnew = cmcPointer(Array, gNewArray);
  31.     return cnew(self, AT_BIT, rank, _rest_);
  32. }
  33.  
  34.  
  35.  
  36.  
  37. /*                                      
  38.  *
  39.  *      Copyright (c) 1993-1996 Algorithms Corporation
  40.  *      3020 Liberty Hills Drive
  41.  *      Franklin, TN 37067
  42.  *
  43.  *      ALL RIGHTS RESERVED.
  44.  *
  45.  *      
  46.  *      
  47.  */
  48.  
  49.  
  50.  
  51.